home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 25
/
AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso
/
< prev
next >
Wrap
Text File
|
2000-05-08
|
838b
|
38 lines
; **** AudioInfo V2.0 zum Hauptinhaltsverzeichnis der Amiga-Future-CD-ROM ****
; **** Skript und Icons © Cord Hagen ****
ASSIGN AFCX: ""
ASSIGN SFX: AFCX:SFX ADD
ASSIGN GFX: AFCX:GFX ADD
ASSIGN C: AFCX:C ADD
ASSIGN LIBS: AFCX:LIBS ADD
IF EXISTS ENV:ICSFX
STATUS COM=PLAY16 >ENV:ICSFX
BREAK $ICSFX
SETENV ICSFI=0
SKIP ENDE
ENDIF
SETENV ICSFX=0
SETENV ICSFX=0
RUN >NIL: VT GFX:AFCDSTART.ANIM DE=20
RUN >NIL: PLAY16 SFX:HIVOLT.WAV L=4
WAIT 1
PLAY16 SFX:AFI01.WAV BUF=99999 >NIL:
IF EXISTS ENV:ICSFI
SKIP JUMP
ENDIF
WBSCROLL 100 2 TIP: Das AudioInfo läßt sich durch erneuten Doppelklick jederzeit abbrechen
LAB JUMP
DELETE ENV:ICSFI >NIL:
DELETE ENV:ICSFX >NIL:
ASSIGN LIBS: AFCX:LIBS REMOVE
ASSIGN C: AFCX:C REMOVE
ASSIGN GFX: AFCX:GFX REMOVE
ASSIGN SFX: AFCX:SFX REMOVE
ASSIGN AFCX: "" REMOVE
LAB ENDE
; Only AMIGA make it possible ;-)